5 GOSUB60100:CLR:POKE53281,.:POKE53280,.
10 RESTORE:PRINT"[147]":GOSUB2000
15 PRINT"   [205]$="CHR$(34);:POKE212,.:PRINT"[215][146][212][200][201][211] [216][146][201][211] E[146][199][210][197][193][212]!!"CHR$(34);
16 PRINT":[199][207][211][213][194]1000"
20 GOSUB2000
30 A=PEEK(203):IFA<>60ANDA<>1THEN30
40 IFA=60THEN10
50 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60 IFER<>63THENEND
70 LOAD"HELLO CONNECT",8
90 :
100 DATA "              [212][197][204][197][212][217][208][197] 64"
110 DATA "              [194]Y [201]AN [193]DAM"
120 DATA " "
130 DATA " "
140 DATA "   [154][212]O USE [212][197][204][197][212][217][208][197][154], COPY LINES 1000 -"
145 DATA "1130 [154]TO YOUR PROGRAM. [212]HEN, PUT YOUR"
148 DATA "MESSAGE IN [205]$ [154]AND [199][207][211][213][194]1000[154]. [212]HE"
150 DATA "[194][193][211][201][195] CODE:"
160 DATA " "
170 DATA "LOADSTAR"
180 DATA " "
190 DATA "[154]WOULD PRODUCE THE FOLLOWING OUTPUT:"
200 DATA " "
210 DATA "[151][212][200][201][211] [152][201][211] [199][210][197][193][212]!!"
220 DATA " "
230 DATA " "
240 DATA "[154][208]RESS [211][208][193][195][197][154] TO SEE THE DEMO AGAIN"
250 DATA "[208]RESS [210][197][212][213][210][206][154] TO RETURN TO [204][207][193][196][211][212][193][210]"
260 DATA "LOADSTAR"
1000 POKE 54273,99:POKE 54278,250
1010 POKE 54276,129
1030 FOR I=1 TO LEN(M$)
1040 PRINT" [146][157]";
1050 FOR J=1 TO 19 :NEXT
1060 POKE54296,15
1070 PRINTMID$(M$,I,1);
1080 POKE54296,0
1090 NEXT:PRINT
1100 POKE 54276,32: POKE54296,15
1110 FOR J=1 TO 299 :NEXT
1120 POKE 54276,0: POKE54296,0
1130 RETURN
2000 READM$:IFM$="LOADSTAR"THENRETURN
2010 GOSUB 1000:GOTO2000
60100 POKE53280,1:POKE53281,1
60110 PRINTCHR$(142)"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"";:M$="          LOADSTAR PRESENTS:":GOSUB1000
60160 PRINT"                              [146]"
60170 PRINT"           TELETYPE MESSAGE   [152] "
60180 PRINT"                              [152] "
60190 PRINT"             BY  IAN ADAM     [152] "
60200 PRINT"                              [152] "
60210 PRINT"            COPYRIGHT 1987    [152] "
60220 PRINT"                              [152] "
60230 PRINT"         [152]                      "
60240 PRINT"";:M$="        PRESS SPACE TO CONTINUE":GOSUB1000
60250 IFPEEK(203)<>60THEN60250
60260 RETURN